source("global.R")
package ‘yaml’ was built under R version 3.4.4package ‘tidyverse’ was built under R version 3.4.2── Attaching packages ────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse 1.2.1 ──
✔ ggplot2 2.2.1.9000     ✔ purrr   0.2.4     
✔ tibble  1.4.2          ✔ dplyr   0.7.4     
✔ tidyr   0.8.0          ✔ stringr 1.3.0     
✔ readr   1.1.1          ✔ forcats 0.2.0     
package ‘tibble’ was built under R version 3.4.3package ‘tidyr’ was built under R version 3.4.3package ‘purrr’ was built under R version 3.4.2package ‘dplyr’ was built under R version 3.4.2package ‘stringr’ was built under R version 3.4.3── Conflicts ───────────────────────────────────────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag()    masks stats::lag()
✖ dplyr::vars()   masks ggplot2::vars()

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

package ‘heatmaply’ was built under R version 3.4.2Loading required package: viridis
Loading required package: viridisLite
package ‘viridisLite’ was built under R version 3.4.3
Attaching package: ‘viridis’

The following object is masked from ‘package:viridisLite’:

    viridis.map


======================
Welcome to heatmaply version 0.13.0

Type citation('heatmaply') for how to cite the package.
Type ?heatmaply for the main documentation.

The github page is: https://github.com/talgalili/heatmaply/
Please submit your suggestions and bug-reports at: https://github.com/talgalili/heatmaply/issues
Or contact: <tal.galili@gmail.com>
======================

package ‘survminer’ was built under R version 3.4.2Loading required package: ggpubr
package ‘ggpubr’ was built under R version 3.4.2Loading required package: magrittr

Attaching package: ‘magrittr’

The following object is masked from ‘package:purrr’:

    set_names

The following object is masked from ‘package:tidyr’:

    extract


Attaching package: ‘shinydashboard’

The following object is masked from ‘package:graphics’:

    box

Loading required package: productplots

Attaching package: ‘ggmosaic’

The following objects are masked from ‘package:productplots’:

    ddecker, hspine, mosaic, prodcalc, spine, vspine

Error in fluidPage(br(), titleBox("About"), fluidRow(column(width = 12,  : 
  could not find function "fluidPage"
display_x  <- panimmune_data$sample_selection_choices[1]
display_y  <- panimmune_data$cell_content_choices[1]
internal_x <- get_variable_internal_name(display_x)
internal_y <- get_variable_internal_name(display_y)
plot_df <- panimmune_data$df %>% 
    select_(.dots = c(internal_x, internal_y)) %>% 
    .[complete.cases(.),]
plot <- create_violinplot(
    plot_df,
    internal_x,
    internal_y,
    internal_x,
    xlab = display_x,
    ylab = display_y,
    fill_colors = decide_plot_colors(panimmune_data, internal_x)
)
the condition has length > 1 and only the first element will be used
plot

ggplotly(plot) %>% 
    layout(hovermode = "closest")
packageVersion('plotly')
[1] ‘4.7.1.9000’
LS0tCnRpdGxlOiAiVGVzdGluZyB2YXJpb3VzIHBsb3QgZnVuY3Rpb25zIgpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sKLS0tCgpgYGB7cn0Kc291cmNlKCJnbG9iYWwuUiIpCmBgYAoKYGBge3J9CmRpc3BsYXlfeCAgPC0gcGFuaW1tdW5lX2RhdGEkc2FtcGxlX3NlbGVjdGlvbl9jaG9pY2VzWzFdCmRpc3BsYXlfeSAgPC0gcGFuaW1tdW5lX2RhdGEkY2VsbF9jb250ZW50X2Nob2ljZXNbMV0KaW50ZXJuYWxfeCA8LSBnZXRfdmFyaWFibGVfaW50ZXJuYWxfbmFtZShkaXNwbGF5X3gpCmludGVybmFsX3kgPC0gZ2V0X3ZhcmlhYmxlX2ludGVybmFsX25hbWUoZGlzcGxheV95KQoKcGxvdF9kZiA8LSBwYW5pbW11bmVfZGF0YSRkZiAlPiUgCiAgICBzZWxlY3RfKC5kb3RzID0gYyhpbnRlcm5hbF94LCBpbnRlcm5hbF95KSkgJT4lIAogICAgLltjb21wbGV0ZS5jYXNlcyguKSxdCgpwbG90IDwtIGNyZWF0ZV92aW9saW5wbG90KAogICAgcGxvdF9kZiwKICAgIGludGVybmFsX3gsCiAgICBpbnRlcm5hbF95LAogICAgaW50ZXJuYWxfeCwKICAgIHhsYWIgPSBkaXNwbGF5X3gsCiAgICB5bGFiID0gZGlzcGxheV95LAogICAgZmlsbF9jb2xvcnMgPSBkZWNpZGVfcGxvdF9jb2xvcnMocGFuaW1tdW5lX2RhdGEsIGludGVybmFsX3gpCikKcGxvdApgYGAKCgpgYGB7cn0KZ2dwbG90bHkocGxvdCkgJT4lIAogICAgbGF5b3V0KGhvdmVybW9kZSA9ICJjbG9zZXN0IikKYGBgCgpgYGB7cn0KcGFja2FnZVZlcnNpb24oJ3Bsb3RseScpCmBgYAoKYGBge3J9CnBsb3RfZGYgJT4lIAogICAgcGxvdF9seSgKICAgICAgICB4ID0gflN1YnR5cGVfSW1tdW5lX01vZGVsX0Jhc2VkLAogICAgICAgIHkgPSB+bGV1a29jeXRlX2ZyYWN0aW9uLAogICAgICAgIHNwbGl0ID0gflN1YnR5cGVfSW1tdW5lX01vZGVsX0Jhc2VkLAogICAgICAgIHR5cGUgPSAndmlvbGluJywKICAgICAgICBib3ggPSBsaXN0KAogICAgICAgICAgICB2aXNpYmxlID0gVAogICAgICAgICksCiAgICAgICAgbWVhbmxpbmUgPSBsaXN0KAogICAgICAgICAgICB2aXNpYmxlID0gVAogICAgICAgICkKICAgICkKYGBgCgo=